home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / borland / prbgi097.zip / PASCAL.ZIP / PDRIVERS.PAS < prev    next >
Pascal/Delphi Source File  |  1992-12-15  |  4KB  |  118 lines

  1. unit Pdrivers;
  2.  
  3. INTERFACE
  4.     uses DOS;
  5.  
  6.  (*    drivers    *)
  7.  
  8.  const Star_SR9   = 1;
  9.        IBM9          = 2;    (* IBM GraphPrinter,IBM ProPrinter    *)
  10.        EPSON9       = 3;        (* EPSON (graphic mode: Esc,'K'/'L'/'Y'/'Z')    *)
  11.        EPSON9II   = 3;     (* EPSON (graphic mode: Esc,'*',n) *)
  12.          PANASONIC9 = 4;     (* Panasonic KX-P1124 - not tested *)
  13.          IBM9c      = 5;     (* IBM ProPrinter (color) *)
  14.          EPSON9c    = 5;     (* EPSON (color) (graphic mode: Esc,'K'/'L'/'Y'/'Z') *)
  15.          EPSON9IIc  = 6;     (* EPSON (color) (graphic mode: Esc,'*',n) *)
  16.          EPSON24    = 7;     (* 24 pins EPSON compatible printer *)
  17.          IBM24      = 8;     (* 24 pins IBM compatible printer *)
  18.          EPSON24c   = 9;     (* 24 pins EPSON compatible color printer *)
  19.                                     (*  not tested *)
  20.          IBM24c     = 10;     (* 24 pins IBM compatible color printer *)
  21.                                     (*  not tested *)
  22.          PaintJet   = 11;    (* Paint Jet  *)
  23.          HPPaintJet = 12;    (* HP Paint Jet *)
  24.          HPLJ       = 13;    (* Laser Jet *)
  25.          HPLJII     = 14;    (* HP Laser Jet *)
  26.  
  27.  (* modes for particular drivers *)
  28.  
  29.    (* EPSON9   *)
  30.       const  EPSON9_60x72     = 0;
  31.       const  EPSON9_120x72    = 1;
  32.       const  EPSON9_120x216   = 2;
  33.       const  EPSON9_240x216   = 3;
  34.    (* STAR_SR9    *)
  35.       const  STAR_SR9_60x72       = 0;
  36.       const  STAR_SR9_120x72      = 1;
  37.       const  STAR_SR9_120x144     = 2;
  38.       const  STAR_SR9_240x144     = 3;
  39.    (* IBM9     *)
  40.       const  IBM9_60x72       = 0;
  41.       const  IBM9_120x72      = 1;
  42.       const  IBM9_120x216     = 2;
  43.       const  IBM9_240x216     = 3;
  44.    (* EPSON24  *)
  45.       const  EPSON24_60x180    = 0;
  46.       const  EPSON24_120x180   = 1;
  47.       const  EPSON24_180x180   = 2;
  48.       const  EPSON24_360x180   = 3;
  49.       const  EPSON24_360x360   = 4;
  50.    (* IBM24    *)
  51.       const  IBM24_60x180    = 0;
  52.       const  IBM24_120x180   = 1;
  53.       const  IBM24_180x180   = 2;
  54.       const  IBM24_360x180   = 3;
  55.    (* PaintJet   *)
  56.       const  PaintJet_90x90       = 0;
  57.       const  PaintJet_180x180     = 1;
  58.       const  PaintJet_90x90c      = 2;
  59.       const  PaintJet_180x180c    = 3;
  60.    (* HPPJ   *)
  61.       const  HPPJ_90x90       = 0;
  62.       const  HPPJ_180x180     = 1;
  63.       const  HPPJ_90x90c      = 2;
  64.       const  HPPJ_180x180c    = 3;
  65.    (* HP LaserJet   *)
  66.       const  HPLJ_75x75      =  0;
  67.       const  HPLJ_100x100    =  1;
  68.       const  HPLJ_150x150    =  2;
  69.       const  HPLJ_300x300    =  3;
  70.    (* HPLJII   *)
  71.       const  HPLJII_75x75      =  0;
  72.       const  HPLJII_100x100    =  1;
  73.       const  HPLJII_150x150    =  2;
  74.       const  HPLJII_300x300    =  3;
  75.  
  76.  
  77.  
  78. Type IntegerArray=array[0..100] of integer;
  79.      IntegerArrayPtr = ^IntegerArray;
  80.      PRT__DriversHeadT = record
  81.                 Ident                    : integer;          (* file identification *)
  82.                 size                     : integer;            (* header size *)
  83.                 version                  : integer;
  84.                 minversion               : integer;
  85.                 DriversNo                : integer;
  86.                 DriversOffsetsIndex      : integer;
  87.                 DriversNamesIndex        : integer;
  88.                 DriversDefOffsets: array[1..224] of integer;
  89.        end;
  90.  
  91.  
  92. Const PRT__DriversPtr: pointer = nil;
  93.         PRT__DriversHeadPtr: ^PRT__DriversHeadT = nil;      (* pointer to head of drivers file *)
  94.         PRT__DriversNamesPtr: pointer = nil; (* pointer to names part of drivers file *)
  95.         PRT__DriversNamesSize: integer = -1; (* size of names part of drivers file *)
  96.         PRT__DriversFileName: string[12] ='Printers.def';
  97.         PRT__CurDriverPtr: IntegerArrayPtr=nil;
  98.         PRT__CurDriverNo: integer=-1;
  99.  
  100. Var
  101.         PRT__DriversFile: file;  (* drivers file handle *)
  102.  
  103.  
  104. Function PRT_GetDriversAddress: pointer;
  105.  
  106.  
  107. IMPLEMENTATION
  108.  
  109. uses PRTGraph;
  110.  
  111. Function PRT_GetDriversAddress: pointer; External;
  112.             {$L Drivers <------------------------------------------- }
  113.             { If you didn't compile file Drivers.asm you don't have
  114.               DRIVERS.OBJ  file. Delete or rename this file in that
  115.               case and make will take existing TPU file. }
  116.             { ------------------------------------------------------ }
  117.  
  118. END {unit Pdrivers}.